home *** CD-ROM | disk | FTP | other *** search
/ Cinema Studio: Frank Herrmann / Cinema Studio - Frank Herrmann.iso / c4dv1.5demo / install-maxoncinema4d < prev    next >
Text File  |  1995-11-01  |  18KB  |  548 lines
  1. ; $VER: MaxonCINEMA4D V1.100 Install Version 1.10 (25.11.93)
  2. ; Script zum Installieren von MaxonCINEMA4D V1.10 auf Festplatte und Diskette
  3. ;
  4.  
  5. (complete 0)
  6.  
  7. (set os-version (/ (getversion) 65536))
  8. (set os-13 (< os-version 36))
  9. (set os-20 (>= os-version 36))
  10. (set os-21 (>= os-version 38))
  11. (set cpu-type (database "cpu"))
  12. (set pal-ntsc (database "vblank"))    ; entsprechend den Default Knopf in der Abfrage ändern
  13.  
  14. (set fdinstall 1)            ; auf Platte (1) oder Disk (0)
  15. (set fdrawer "WORK:")            ; default Verzeichnis
  16. (set fdversion 0)
  17. (if (<> cpu-type "68000")
  18.     (
  19.     (if (<> cpu-type "68010")
  20.         (
  21.         (set fdversion 1))
  22.     )))
  23.  
  24. (if (= pal-ntsc "50")
  25.     (
  26.     (set palntsc 0))    ; PAL
  27.     ((set palntsc 1))    ; NTSC
  28. )
  29.  
  30. (set egs (getassign "EGS"))
  31. (set gfxout 0)            ; Keine
  32. (if (<> egs "")
  33.     ((set gfxout 3)))    ; 4=Picclo, 3=EGS, 2=Merlin, 1=Retina
  34.  
  35. (set samples 1)            ; 1 Beispiele installieren, 0 nicht installieren
  36.  
  37. ; Die Diskettennamen
  38.  
  39. (set DISK1 "MaxonCINEMA_1")
  40. (set DISK2    "MaxonCINEMA_2")
  41.  
  42. ; Die Pfadnamen der einzelnen Quell-Dateien.
  43.  
  44. (set sourcefd-more                "MaxonCINEMA_1:More")
  45. (set sourcefd-lhx                "MaxonCINEMA_1:C/LHX")
  46.  
  47. (set sourced-palturbo                "INSTALLATION:Prefs-Archiv/DISK_PAL_881.prefs")
  48. (set sourced-ntscturbo                "INSTALLATION:Prefs-Archiv/DISK_NTSC_881.prefs")
  49. (set sourced-palnormal                "INSTALLATION:Prefs-Archiv/DISK_PAL_000.prefs")
  50. (set sourced-ntscnormal                "INSTALLATION:Prefs-Archiv/DISK_NTSC_000.prefs")
  51. (set sourcef-ntscturbo                "INSTALLATION:Prefs-Archiv/HD_NTSC_881.prefs")
  52. (set sourcef-ntscnormal                "INSTALLATION:Prefs-Archiv/HD_NTSC_000.prefs")
  53.  
  54. (set sourcefd-retina                "MaxonCINEMA_1:Treiber/Retina/cinemaausgabe.library")
  55. (set sourcefd-merlin                "MaxonCINEMA_1:Treiber/Merlin/cinemaausgabe.library")
  56. (set sourcefd-egs                    "MaxonCINEMA_1:Treiber/EGS/cinemaausgabe.library")
  57. (set sourcefd-picasso            "MaxonCINEMA_1:Treiber/Picasso/cinemaausgabe.library")
  58.  
  59. ; Patternkopie mit #? (alle auf dem angegebenen Pfad)
  60.  
  61. (set sourcef-pattern-bilder        "DISKETTE3:Bilder")    ; alle übertragen
  62. (set sourcef-Pattern-disk4        "DISKETTE4:")        ; alle Texturen von Disk 4
  63.  
  64. ; LHA-Dateien
  65.  
  66. (set sourcefd-lha-normalversion    "MaxonCINEMA_1:Demo.lha")
  67. ;(set sourcefd-lha-Konverter        "MaxonCINEMA_2:DemoKonverter.lha")
  68. (set sourcefd-lha-Schubladen        "MaxonCINEMA_2:Schubladen.lha")
  69. (set sourcefd-lha-rctlib            "MaxonCINEMA_2:rctlib.lha")
  70.  
  71. ;============================
  72. ;=== Deutsche Erklärungen ===
  73. ;============================
  74. (set #startup-help
  75. (cat "Erklärung der Schalter:\n\n"
  76.      "\"Install for Real\"\n"
  77.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  78.      "\"Pretend to Install\"\n"
  79.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  80.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  81.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  82.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  83.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  84.      "Liste über alle durchgeführten Aktionen.\n\n"
  85.      "\"Printer\"\n"
  86.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  87.      "ausgegeben.\n\n"
  88.      "\"Log File\"\n"
  89.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  90.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  91.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  92.      "\"None\"\n"
  93.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  94. (set #introduction
  95. (cat "Mit diesem Installationsprogramm können Sie\n MaxonCINEMA 4D\n auf einer "
  96.      "Festplatte installieren.\nDie Installation läuft "
  97.      "nahezu vollständig automatisch ab.\n"
  98.      "Das komplette Programm belegt ca. 5 MByte auf Ihrer Festplatte!\n\n"
  99.      "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n"
  100.      "Drücken Sie \"Abort Install\", um die Installation abzubrechen."))
  101. (set #diskinstallhinweis
  102. (cat "Damit Cinema 4D installiert werden kann, benötigen Sie sieben Leerdisketten mit den folgenden Namen:\n\n"
  103.      "CINEMA 4D\n"
  104.      "Hilfsprogramme\n"
  105.      "Diamant\n"
  106.      "Zeichensätze\n"
  107.      "Szenen\n"
  108.      "Daten\n"
  109.      "Texturen\n"
  110.      "\nBitte fahren Sie erst fort, wenn Sie diese Leerdisketten bereit liegen haben!\n\n"))
  111. (set #reduceddiskinstallhinweis
  112. (cat "Damit Cinema 4D installiert werden kann, benötigen Sie eine Leerdisketten mit dem Namen \"Cinema 4D\"\n\n"
  113.      "Bitte fahren Sie erst fort, wenn Sie diese Leerdiskette bereit liegen haben!\n\n"))
  114.  
  115.     (set #wrk-create-pref-file
  116.         "\nDie Voreinstellungs-Datei wird erzeugt...")
  117.     (set #wrk-copy-egs
  118.         "\nEinige EGS-Zusatzdateien werden installiert...")
  119.     (set #wrk-installing-prgnormal
  120.         "\nDie Normalversion von MaxonCINEMA 4D wird installiert...\n")
  121.     (set #wrk-installing-prgturbo
  122.         "\nDie Turboversion von MaxonCINEMA 4D wird installiert...\n")
  123.     (set #wrk-installing-Diamant
  124.         "\nDie Beispieldatei Diamant wird entpackt...\n")
  125.     (set #wrk-installing-Helvetica
  126.         "\nEinige Fonts werden installiert...\n")
  127. ;    (set #wrk-installing-Konverter
  128. ;        "\nDer MaxonCINEMA 4D Konverter wird entpackt...\n")
  129.     (set #wrk-installing-Hilfsprogramme
  130.         "\nEinige Hilfsprogramme werden entpackt...\n")
  131.     (set #wrk-installing-Entwickler
  132.         "\nEinige Entwicklertools werden entpackt...\n")
  133.     (set #wrk-installing-Schubladen
  134.         "\nErzeuge einige Unterverzeichnisse...\n")
  135.     (set #wrk-installing-Diamantlklein
  136.         "\nDie Beispieldatei Diamant-Klein wird entpackt...\n")
  137.     (set #wrk-installing-Szenen
  138.         "\nEinige Beispielszenen werden entpackt\n")
  139.     (set #wrk-installing-Pictures
  140.         "\nEinige gepackte Bilder werden kopiert\n")
  141.     (set #wrk-installing-Texture
  142.         "\nDie Texturen werden kopiert!\n")
  143.  
  144. (set #prp-installation
  145.             "Auf welches Medium möchten Sie gerne installieren?")
  146. (set #hlp-installation
  147. (cat    "    Bitte geben Sie hier an, ob Sie eine Disketten- "
  148.             "oder Festplatteninstallation wünschen!\n\n"
  149.             "Das komplette Programm belegt auf der Festplatte "
  150.             "ca. 5 MByte Speicher. Wenn Sie eine Disketteninstallation "
  151.             "wünschen, müssen Sie sieben Disketten bereitlegen!\n\n"
  152.              @askchoice-help))
  153.     (set #disk-installation
  154.         "Auf Diskette")
  155.     (set #harddisk-installation
  156.         "Auf Festplatte")
  157.  
  158. (set #askdir-global
  159. (cat "Beschreibung der Schalter:\n\n"
  160.          "Der große \"Rollbereich\" in der Mitte des Fensters zeigt den "
  161.      "Inhalt der aktuellen Diskette oder des aktuellen Verzeichnisses. "
  162.      "Schubladen werden durch\ndie invertierten Buchstaben \"DRW\" vor "
  163.      "deren Namen gekennzeichnet. Der Name der Diskette oder des "
  164.      "Verzeichnisses, das dargestellt wird, erscheint darunter in einem "
  165.      "hervorgehobenen Kasten. Auf der rechten Seite des Inhaltsfeldes "
  166.      "befindete sich ein Schieber, mit dem man sich durch eine "
  167.      "Verzeichnis- liste bewegen kann, falls der sichtbare Platz nicht für "
  168.      "alle Einträge ausreicht.\n\n"
  169.      "Man kann das aktuelle Verzeichnis wechseln, indem man auf den "
  170.      "Namen einer Schublade klickt.\n\n"
  171.      "Mit dem Schalter \"Parent Drawer\" gelangt man wieder in das "
  172.      "übergeordnete Verzeichnis (von dem aus eine Schublade angeklickt "
  173.      "wurde.)\n\n"
  174.      "Der Schalter \"Show Drives\" zeigt alle am Amiga ange- schlossenen "
  175.      "Geräte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
  176.      "Sie auf einen Namen, um sich den Inhalt des betreffenden "
  177.      "Gerätes anzusehen.\n\n"
  178.      "Über den Schalter \"Make New Drawer\" können Sie eine neue "
  179.      "Schublade erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
  180.      "angelegt, das Sie soeben betrachten.\n\n"
  181.      "Sobald Sie auf \"Proceed\" klicken, wird mit der Installation "
  182.      "fortgefahren.\n\n"
  183.      "Ein Klick auf \"Abort Install\" bricht die Installation "
  184.      "an dieser Stelle ab. Es werden keine weiteren Änderungen mehr "
  185.      "vorgenommen.\n\n"
  186.      "\"Help...\" zeigt diesen Text."))
  187. (set #prp-installdrawer
  188.             "Auf welches Medium möchten Sie gerne installieren?")
  189. (set #askdir-help
  190. (cat     "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  191.             "Sie gerne MaxonCINEMA 4D installieren möchten. Dann drücken Sie "
  192.             "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n"
  193.             "Es ist nicht notwendig, eine Schublade anzulegen! Es wird "
  194.             "automatisch die Schublade MaxonCINEMA erzeugt!\n\n"
  195.             #askdir-global))
  196. (set #askdisk-help
  197. (cat         "\nStellen Sie sicher, daß Sie sieben Disketten "
  198.         "formatiert und richtig benannt haben.\n"
  199.         #askdir-global))
  200.  
  201. (set #prp-versionchoice
  202. (cat    "\nMöchten Sie die Turboversion oder die Normalversion installieren?\n"))
  203. (set #normal-version
  204.             "Normalversion")
  205. (set #turbo-version
  206.             "Turboversion")
  207. (set #hlp-versionchoice
  208. (cat    "\nWenn Sie die Normalversion wählen wird der in Ihrem System vorhandene "
  209.             "mathematische Coprozessor nicht genutzt. Die Normalversion ist die "
  210.             "langsamere Programmversion. Sie sollten diese wählen, wenn Sie über "
  211.             "keinen mathematischen Coprozessor (68881/68882) verfügen.\n"
  212.             "Die schnellere Turboversion nutzt den mathematischen Coprozessor und "
  213.             "sollte installiert werden, wenn Sie Beispielsweise auf einem A2000 mit "
  214.             "Turbokarte, einem A3000 oder einem A4000 installieren!\n\n"
  215.             @askchoice-help))
  216.  
  217. (set #prp-palntsc
  218. (cat    "\nMöchten Sie die Pal- oder NTSC-Einstellung installieren?\n"))
  219. (set #pal-pref
  220.             "PAL")
  221. (set #ntsc-pref
  222.             "NTSC")
  223. (set #hlp-palntsc
  224. (cat    "\nJe nach Einstellung werden entsprechende Voreinstellungen installiert, "
  225.     "die es ermöglichen, MaxonCINEMA 4D auf einem PAL- oder NTSC-Monitor zu "
  226.     "betreiben!\n\n"
  227.     @askchoice-help))
  228.  
  229. (set #prp-sampleinstall
  230. (cat    "\nSollen die beiliegenden Beispiele, Bibliotheken, Hilfsprogramme und Bilder installiert werden?\n"))
  231. (set #yes-samples
  232.             "Ja")
  233. (set #no-samples
  234.             "Nein")
  235. (set #hlp-sampleinstall
  236. (cat    "\nSie können hier angeben, ob außer Cinema 4D noch verschiedene Zusätze installiert werden sollen.\n\n"
  237.     "Das Programm ist auch ohne sie lauffähig.\n\nBei den Zusätzen handelt es sich um "
  238.     "um mehrere Beispielsszenen, Materialien, Texturen usw.!\n\n"
  239.     @askchoice-help))
  240.  
  241. (set #prp-grafikausgabe
  242. (cat    "\nSollen Ausgabetreiber für 24 Bit Grafiksysteme installiert werden?\n"))
  243. (set #no-gfxout        "Keine")
  244. (set #retina-gfxout    "Retina")
  245. (set #merlin-gfxout    "Merlin, Visiona, Domino")
  246. (set #egs-gfxout    "EGS (u.a. Piccolo, Rainbow, GVP EGS 110/24) ")
  247. (set #picasso-gfxout "Picasso")
  248. (set #hlp-grafikausgabe
  249. (cat    "\nWenn Sie keine Grafikkarte besitzen und wenn EGS auf Ihrem System nicht "
  250.     "installiert ist, können Sie diese Frage mit \"Proceed\" überspringen.\n"
  251.     "Ist eine der genannten Grafikkarten in Ihrem Amiga-System vorhanden, "
  252.     "dann können Sie veranlassen, daß der entsprechende Treiber "
  253.     "installiert wird.\n\n"
  254.     @askchoice-help))
  255.  
  256.  
  257.     (set #msg-install-cinema-lib
  258.         (cat    "\nNun wird die Cinema-Ausgabe-Library im LIBS:-Ordner installiert.\n\n"
  259.                 "Diese Library wird benötigt, damit CINEMA 4D direkt "
  260.                 "auf der Grafikkarte Bilder darstellen kann."))
  261.  
  262.     (set #prp-copy-cinelib
  263.         "Kopieren der Cinema-Ausgabe-Library")
  264.     (set #hlp-copy-cinelib
  265.         (cat    "    Die Cinema-Ausgabe-Library enthält leistungsfähige Funktionen zum "
  266.                 "Betreiben von CINEMA 4D unter den besonderen Fähigkeiten von "
  267.                 "24 Bit Grafikkarten"
  268.                 "\n\n"
  269.                 @copylib-help))
  270.  
  271.     (set #prp-copy-rct-lib
  272.         "Kopieren der RCT-Library")
  273.     (set #hlp-copy-rct-lib
  274.       (cat    "Die RCT-Library beinhaltet das Standard-Dateiauswahlfenster "
  275.         "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  276.         "installiert haben, dann ist hier eine neuere Version.\n\n"))
  277.  
  278.     (set #msg-disk-too-small
  279.         (cat    "\nDieser Fehler tritt üblicherweise auf, wenn auf Disketten "
  280.                 "installiert wird (wenn Sie auf Festplatte installieren und diese "
  281.                 "Meldung erhalten, sollten Sie jetzt die Installation abbrechen und "
  282.                 "erst mal ein wenig Platz auf Ihrer Platte schaffen!).\n\n"))
  283.     (set #msg-disk-wasnt-empty
  284.         (cat    "Allerdings müßte für die von Ihnen ausgewählten Daten "
  285.             "genügend Platz auf der ausgewählten Diskette sein! Scheinbar "
  286.             "haben Sie keine vollkommen leere Disk verwendet! "
  287.             "Aus diesem Grund wird die Installation jetzt abgebrochen."))
  288.  
  289.     (set #hh-disk-not-enough-space
  290.         (cat    "Bereiten Sie bitte vor dem nächsten Installations-Versuch "
  291.             "eine neue Disk vor und verwenden Sie diese.\n\n"
  292.             "(Hinweise zum Formatieren von Disketten entnehmen Sie bitte "
  293.             "Ihrem Amiga-Benutzerhandbuch)"))
  294.  
  295.     (set #prp-demo-pro-dir
  296.         "Ziel-Verzeichnis für die Beispiel-Daten")
  297.  
  298. (set #prp-insert-disk1
  299.         (cat "\n\nBitte legen Sie nun die Diskette 1 \"INSTALLATION\" "
  300.                  "in ein beliebiges Laufwerk ein!"))
  301. (set #prp-insert-disk2
  302.         (cat "\n\nBitte legen Sie nun die Diskette 2 \"DISKETTE2\" "
  303.                  "in ein beliebiges Laufwerk ein!"))
  304. (set #prp-insert-disk3
  305.         (cat "\n\nBitte legen Sie nun die Diskette 3 \"DISKETTE3\" "
  306.                  "in ein beliebiges Laufwerk ein!"))
  307. (set #prp-insert-disk4
  308.         (cat "\n\nBitte legen Sie nun die Diskette 4 \"DISKETTE4\" "
  309.                  "in ein beliebiges Laufwerk ein!"))
  310.  
  311. (set #prp-insert-texturen
  312.         (cat "\n\nBitte legen Sie nun die Diskette \"TEXTUREN\" "
  313.                  "in ein beliebiges Laufwerk ein!"))
  314.  
  315. (set #prp-somefiles
  316.         (cat "\nEinige Installationsdateien werden kopiert ...\n"))
  317.  
  318.  
  319. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren."))
  320.  
  321. (set @abort-button "Abbruch")
  322. (set @language "Deutsch")
  323.  
  324. (Procedure Inst_NormFiles
  325. ;    (if (< (getdiskspace @Dest) @Size)
  326. ;        (abort #no-inst))
  327.  
  328.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  329.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  330. )
  331.  
  332. (Procedure Inst_PatternFiles
  333.     (set @Dest_File (tackon @default-dest @Dest))
  334.     (if                                          ; Verzeichnis erzeugen
  335.         (= (exists @Dest_File) 0)
  336.         (makedir (@Dest_File))
  337.     )
  338.  
  339.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest_File))
  340.     (working @Working @Dest)
  341.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest_File)(confirm))
  342. )
  343.  
  344. (Procedure Inst_DiskPatternFiles
  345.     (set @Dest_File @Dest)
  346.     (if                                          ; Verzeichnis erzeugen
  347.         (= (exists @Dest_File) 0)
  348.         (makedir (@Dest_File))
  349.     )
  350.  
  351.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest_File))
  352.     (working @Working @Dest)
  353.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest_File)(confirm))
  354. )
  355.  
  356. (Procedure Inst_LhaFiles
  357.     (set @TMP (tackon "RAM:" (fileonly @Source)))
  358.     (if                                 ; Verzeichnis erzeugen
  359.         (= (exists @Dest) 0)
  360.         (makedir (@Dest)(infos))
  361.     )
  362.  
  363.     (copyfiles (prompt "")(help "")(source @Source)(newname (fileonly @Source))(dest "RAM:")(confirm))
  364.     (working @Working @Dest)
  365.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest))
  366.     (delete @TMP)
  367. )
  368.  
  369. (Procedure Inst_Disk-LhaFiles
  370.     (
  371.     (set @TMP (tackon "RAM:" (fileonly @Source)))
  372. ;    (set @Dest (tackon @DiskNEU @Dest))
  373.  
  374.     (copyfiles (prompt "")(help "")(source @Source)(newname (fileonly @Source))(dest "RAM:")(confirm))
  375.  
  376.     (set @STRING ("\nBitte legen Sie nun die Diskette %s in ein beliebiges Laufwerk ein!\n" @DiskNEU))
  377.  
  378.     (askdisk
  379.         (prompt @STRING)
  380.         (help @askdisk-help)
  381.         (dest @Disk)
  382.     )
  383.  
  384.     (working @Working @DiskNEU)
  385.     (run ("RAM:Lhx -E -N x %s \"%s\"" @TMP @DiskNEU))
  386.     (delete @TMP))
  387. )
  388.  
  389.  
  390. (message #introduction)
  391. (welcome)
  392.  
  393. (if (= fdinstall 1)            ; auf Festplatte installieren !
  394.     (
  395.         (set @default-dest      ;Laufwerk aussuchen
  396.             (askdir
  397.                 (prompt #prp-installdrawer)
  398.                 (help    #askdir-help)
  399.                 (default fdrawer)
  400.                 (disk)
  401.             )
  402.         )
  403.  
  404.         (set @default-dest
  405.             (pathonly @default-dest))    ; Nur das Laufwerk wird benötigt
  406.  
  407.         (set @default-dest (tackon @default-dest "MaxonCINEMA"))
  408.  
  409.         (if                                     ; Verzeichnis erzeugen
  410.             (= (exists @default-dest) 0)
  411.             (makedir (@default-dest)(infos))
  412.         )
  413.     )
  414. )
  415.  
  416. (set gfxout                        ; auf Grafikkarte
  417.     (askchoice
  418.         (prompt #prp-grafikausgabe)
  419.         (help #hlp-grafikausgabe)
  420.         (choices #no-gfxout #retina-gfxout #merlin-gfxout #egs-gfxout #picasso-gfxout)
  421.         (default gfxout)
  422.     )
  423. )
  424.  
  425. ; Diskette 1 liegt wahrscheinlich schon im Laufwerk. Dennoch Sicherheitshalber die Abfrage!
  426.  
  427. (askdisk
  428.     (prompt #prp-insert-disk1)
  429.     (help @askdisk-help)
  430.     (dest DISK1)
  431. )
  432.  
  433.  
  434. (copyfiles                        ; LHX kopieren
  435.     (prompt #prp-somefiles)
  436.     (help @copyfiles-help)
  437.     (source sourcefd-lhx)
  438.     (dest "RAM:")
  439. )
  440.  
  441. (complete 10)
  442.  
  443. (if(= 0 (exists "RAM:Lhx"))
  444.     (abort #ERRORRAM))
  445.  
  446. (delete
  447.     ("libs:cinemaausgabe.library")
  448. )
  449.  
  450. (if (= fdinstall 1)            ; auf Festplatte installieren !
  451.     (
  452.         (
  453.             (set @Working #wrk-installing-prgnormal)
  454.             (set @Source sourcefd-lha-normalversion)
  455.             (set @Dest @default-dest)
  456.             (Inst_LhaFiles)    ; Entpacken
  457.         )
  458.  
  459.         (complete 20)
  460.  
  461.  
  462.         (if (= gfxout 1)    ; Retina output
  463.             (copylib
  464.                 (prompt #prp-copy-cinelib)
  465.                 (help #hlp-copy-cinelib)
  466.                 (source sourcefd-retina)
  467.                 (dest "LIBS:")
  468.                 (confirm)
  469.             )
  470.         )
  471.         (if (= gfxout 2)    ; Merlin output
  472.             (copylib
  473.                 (prompt #prp-copy-cinelib)
  474.                 (help #hlp-copy-cinelib)
  475.                 (source sourcefd-merlin)
  476.                 (dest "LIBS:")
  477.                 (confirm)
  478.             )
  479.         )
  480.         (if (= gfxout 3)    ; EGS output
  481.             (copylib
  482.                 (prompt #prp-copy-cinelib)
  483.                 (help #hlp-copy-cinelib)
  484.                 (source sourcefd-egs)
  485.                 (dest "LIBS:")
  486.                 (confirm)
  487.             )
  488.         )
  489.         (if (= gfxout 4)    ; Picasso output
  490.             (copylib
  491.                 (prompt #prp-copy-cinelib)
  492.                 (help #hlp-copy-cinelib)
  493.                 (source sourcefd-picasso)
  494.                 (dest "LIBS:")
  495.                 (confirm)
  496.             )
  497.         )
  498.  
  499.         (complete 40)
  500.  
  501.     (askdisk        ; Diskette 2 einlegen!
  502.         (prompt #prp-insert-disk2)
  503.         (help @askdisk-help)
  504.         (dest DISK2)
  505.     )
  506.  
  507. (complete 50)
  508.  
  509.     (set @Working #wrk-installing-Schubladen)
  510.     (set @Source sourcefd-lha-Schubladen)
  511.     (set @Dest @default-dest)
  512.     (Inst_LhaFiles)    ; Entpacken
  513.  
  514. (complete 60)
  515.  
  516. ;    (set @Working #wrk-installing-Konverter)
  517. ;    (set @Source sourcefd-lha-Konverter)
  518. ;    (set @Dest @default-dest)
  519. ;    (Inst_LhaFiles)    ; Entpacken
  520.  
  521. (complete 90)
  522.  
  523.     (if os-13
  524.     (set @Working #prp-copy-rct-lib)
  525.     (set @Source sourcefd-lha-rctlib)
  526.     (set @Dest "LIBS:")
  527.     (Inst_LhaFiles)    ; Entpacken
  528.     )
  529.     )
  530. )
  531.  
  532. (complete 100)
  533.  
  534. ; ------- FERTIG
  535.  
  536. ;(askdisk
  537. ;    (prompt #prp-insert-disk1)
  538. ;    (help @askdisk-help)
  539. ;    (dest DISK1)
  540. ;)
  541.  
  542. ;(run ("MaxonCINEMA_1:C/ANZEIGER"))
  543.  
  544. (message (cat
  545.     "Die Installation von MaxonCINEMA 4D ist erfolgreich beendet.\n\n"
  546.        "Wir wünschen Ihnen viel Spaß beim Arbeiten mit CINEMA 4D!")
  547. )
  548.